﻿open SpamChecker

module Main =
    // File with new, unchecked emails
    [<Literal>]
    let incommingEmails = @"..\..\Samples\new.csv"

    let output = SpamChecker.CheckMailsInCsv(incommingEmails)

    // Outputs shortened results to file so we can check them later
    let formatedOutput = output |> Seq.map(fun(tokens, p) -> p.ToString() + " > " + tokens.Remove(70) + "\r\n\r\n")
    for line in formatedOutput do        
        System.Console.Write(line)
    
    System.Console.ReadLine()
    |> ignore

